home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 132 / 132.d81 / demo pgm checker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  48 lines
  1. 2 rem "fgm.6.0 demo pgm checker.[194]
  2. 4 [151]55,0:[151]56,30:[156]:[151]53281,6
  3. 6 [153]"load","cmdcmdcmdascchr$(NULL) v6 str$val(NULL)(NULL) (NULL)(NULL)(NULL)chr$(NULL)atn(NULL) lenleft$vallen(NULL)val(NULL)":[141]56
  4. 8 [153]" str$oes checksum of all vital":[153]" program files on the ascchr$(NULL) disk."
  5. 10 [153]" (NULL)ut ascchr$(NULL) programwait disk in drive 8":[153]" and press (NULL)val(NULL)(NULL)(NULL)(NULL)."
  6. 12 [151]198,0:[146]198,1
  7. 14 [153]"ascright$(NULL)valwait      (NULL)right$(NULL)valwait   val(NULL)(NULL)wait     sqr(NULL)(NULL)(NULL)wait"
  8. 16 [129]l[178]01[164]24[169]3:[135]f$,c1,c2:sl[178].:sh[178]32:f$[178]"ascchr$(NULL)"[170]f$[170]"*"
  9. 17 [139]l[178]1[167]f$[178]"fgm v6*"
  10. 19 [153]f$;:[143]:c1;c2:next:end
  11. 20 [158]49232:[159]3,8,0,f$:[151]157,0:[151]185,0:[151]780,0
  12. 22 [151]781,sl:[151]782,sh:[158]65493:[160]3
  13. 24 el[178][194](174):eh[178][194](175):ed[178]el[170]256[172]eh:[151]253,el:[151]254,eh
  14. 26 [159]1,8,15:[132]1,e,b$,c,d:[152]1,"ui":[160]1:[139]e[177]19[167][153]e;b$,f$:er[178]er[170]1:[137]50
  15. 28 [153][163]9);ed[171]8192;:[158]49152:d1[178][194](820)
  16. 30 d2[178]([194](821)[170]256[172][194](822))[170](65536[172][194](823))[170]983040[172][194](824)
  17. 32 [153][163]16);d1;[163]22);d2;:[139]c1[178]d1[167][139]c2[178]d2[167][153]" (NULL)(NULL)";
  18. 34 [153]:[139]c1[179][177]d1[167][153]"val(NULL)(NULL) errorwait:"f$
  19. 36 [139]c2[179][177]d2[167][153]"sqr(NULL)(NULL)(NULL) errorwait:"f$
  20. 38 [139]c1[179][177]d1[176]c2[179][177]d2[167]er[178]er[170]1
  21. 40 [137]50:[143] printer output
  22. 42 [159]4,4,7:[152]4,f$;[194](820);
  23. 44 [152]4,([194](821)[170]256[172][194](822))[170](65536[172][194](823))[170]983040[172][194](824)
  24. 46 [160]4
  25. 48 [143]  ?peek(251)+256*peek(252)
  26. 50 [130]l
  27. 52 [153]" errors"er;:[139]er[178].[167][153]" atnll vital files are (NULL)(NULL)."
  28. 53 [153]:[153],"(NULL)val(NULL)val(NULL) len(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL) peekvalasc(NULL)(NULL)val":[153],"(NULL)(NULL)atnstr$right$(NULL)chr$ atn(NULL)(NULL)(NULL)left$val(NULL) (NULL)(NULL)(NULL)chr$(NULL)atn(NULL)!"
  29. 54 [151]55,0:[151]56,160:[156]:[128]
  30. 56 x[178]49152:ff[178]255
  31. 58 [135]y:[151]x,y:x[178]x[170]1:[139]y[179]ff[167]58
  32. 60 [142]
  33. 62 [131] 160,5,169,0,153,51,3,136,208,250,234,133,251,169,32,133
  34. 64 [131] 252,160,0,177,251,240,33,72,77,52,3,141,52,3,104,24
  35. 66 [131] 109,53,3,141,53,3,144,16,238,54,3,141,32,208,208,8
  36. 68 [131] 238,55,3,208,3,238,56,3,136,208,216,230,251,208,2,230
  37. 70 [131] 252,165,251,197,253,208,202,165,252,197,254,208,196,96,234,234
  38. 71 [131] 169,0,133,251,169,32,133,252,162,68,160,0,169,0,145,251
  39. 72 [131] 200,208,251,230,252,202,208,242,96,234,255
  40. 74 [131]"fgm v6 ",040,23143782
  41. 75 [131]".peeklen",056,20262980
  42. 76 [131]".(NULL)(NULL)",199,33700861
  43. 78 [131]".(NULL)(NULL)",145,15694085
  44. 80 [131]".(NULL)(NULL)",199,1372519
  45. 82 [131]".str$(NULL)",239,12229443
  46. 84 [131]".co",154,13028724
  47. 90 [131]"dpeek(NULL)",178,12460170
  48.